home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 16 / wputil.zip / DB2WPSF.PRG < prev    next >
Text File  |  1985-11-15  |  2KB  |  74 lines
  1. ************************* DB2WPSF.PRG ******************************
  2. *
  3. *  DB2WPSF.PRG generates a word processing file for Word Perfect
  4. *               from the ATLANTIS2 inquiry file for inquiries at least
  5. *               30 days old..
  6. *        It creates a files called <filename>.TXT which is then
  7. *        to be filtered through db2wpsf.com (db2wpsf.c).
  8. *        [of course your set up code,dbf and ndx files will be 
  9. *        your own.]
  10. *******************************************************************
  11. CLEAR
  12. CLOSE DATABASES
  13. SELECT 1
  14. USE ATINQ INDEX ATINQ
  15. SELECT 2
  16. USE ATCRSGEN INDEX ATCRSGEN  * erase old .sf files
  17. SELECT 1             *    "     "
  18. IF FILE('INQ30OW.SF')         *    "     "
  19.    ERASE INQ30OW.SF         *    "     "
  20. ENDIF                 *    "     "
  21. IF FILE('INQ30OTH.SF')         *    "     "
  22.    ERASE INQ30OTH.SF         *    "     "
  23.  
  24. ENDIF                 
  25. * DO THE OW FILE
  26. SET ALTER TO INQ30OW.TXT     * the name of your desired filename.ext
  27. SET ALTER ON
  28. DO WHILE .NOT. EOF()
  29.    SET RELATION TO INQTYP INTO ATCRSGEN
  30.    IF INQTYP = 'OW'.AND. INQDA <= DATE() - 30 .AND. OD30REP <> 'Y' .AND.;
  31.       CNVT <> 'Y' 
  32.       ?? TRIM(TITLE) - CHR(18)
  33.       ?? TRIM(FIRST) - CHR(18)
  34.       ?? TRIM(LAST) - CHR(18) 
  35.       ?? TRIM(ADDR) - CHR(18)
  36.       ?? TRIM(CITY) - CHR(18)
  37.       ?? TRIM(STATE) - CHR(18)
  38.       ?? TRIM(ZIP) - CHR(18)
  39.       ?? TRIM(B->FNAME) - CHR(18)
  40.       ?? DTOC(INQDA) - CHR(18)
  41.       ?? CHR(5)
  42.    ENDIF
  43.    SKIP
  44. ENDDO
  45. SET ALTER OFF
  46. SET ALTER TO
  47. GO TOP
  48. SET ALTER TO INQ30OTH.TXT
  49. SET ALTER ON
  50. DO WHILE .NOT. EOF()
  51.    SET RELATION TO INQTYP INTO ATCRSGEN
  52.    IF INQTYP <> 'OW' .AND. INQDA <= DATE() - 30 .AND. OD30REP <> 'Y' .AND.;
  53.       CNVT <> 'Y'
  54.       ?? TRIM(TITLE) - CHR(18)
  55.       ?? TRIM(FIRST) - CHR(18)
  56.       ?? TRIM(LAST) - CHR(18)
  57.       ?? TRIM(ADDR) - CHR(18)
  58.       ?? TRIM(CITY) - CHR(18)
  59.       ?? TRIM(STATE) - CHR(18)
  60.       ?? TRIM(ZIP) - CHR(18)
  61.       ?? TRIM(B->FNAME) - CHR(18)
  62.       ?? DTOC(INQDA) - CHR(18)
  63.       ?? CHR(5)
  64.    ENDIF
  65.    SKIP
  66. ENDDO
  67. SET ALTER OFF
  68. SET ALTER TO
  69. * SET OD30REP FLAG
  70.    IF INQTYP <> 'OW' .AND. INQDA <= DATE() - 30 .AND. OD30REP <> 'Y' .AND.;
  71.       CNVT <> 'Y'
  72. REPLACE ALL OD30REP WITH 'Y' FOR INQDA <= DATE() - 30 .AND. OD30REP <> 'Y';
  73.        .AND. CNVT <> 'Y'
  74.